home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / dcg301up / resurect.scr < prev    next >
Encoding:
Text File  |  1993-04-01  |  1.8 KB  |  65 lines
  1. !
  2. ! Default Resurrection Script
  3. !
  4. ! (c) DC Software, 1992
  5. !
  6.  
  7. !
  8. ! The resurrect script is invoked with entry point @0, and is used to
  9. ! control the situation when everyone in the party dies.  This particular
  10. ! script makes some vague comments and then gives the players another
  11. ! chance by seting their hit points back to their maximum and transfering
  12. ! the party to the starting place (world 0, door 0).
  13. !
  14. ! The 'dead_count' variable is incremented to limit the number of times
  15. ! the party can be resurrected.
  16. !
  17. ! NOTE that if you don't use the 'dead_count' variable for it's intended
  18. ! purpose, you COULD use it for something else.  It is an integer variable
  19. ! that has an initial value of 0.
  20. !
  21.  
  22. :@0
  23.  
  24.   wait( 3 );
  25.   writeln( "Everything is DARK.." );
  26.   wait( 2 );
  27.   writeln( "You hear a soft, far away voice:" );
  28.   wait( 2 );
  29.   group.current = 0;
  30.   if player.level < group.dead_count then
  31.     writeln( "Another failure! How disapointing.." );
  32.     wait( 2 );
  33.     writeln( "Perhaps another one will come along.." );
  34.     wait( 2 );
  35.     writeln( "You drift into infinity.." );
  36.     pause;
  37.     ENDGAME; ! End the Game !
  38.   endif;
  39.  
  40.   if group.dead_count = 0 then
  41.     writeln( "You shall have a second chance!" ); 
  42.     wait( 2 );
  43.     writeln( "Find your destiny!" );
  44.   else
  45.     writeln( "Hmmm.. I am disapointed in you.." );
  46.     wait( 2 );
  47.     writeln( "But you have shown potential.." );
  48.     wait( 2 );
  49.     writeln( "You shall have another chance.." );
  50.     wait( 2 );
  51.     writeln( "You must find your destiny!" );
  52.   endif;
  53.   wait( 2 );
  54.   writeln( "You wake, disoriented and confused..." );
  55.   wait( 5 );
  56.  
  57.   for L0 = 0 to group.size do 
  58.     group.current = L0;
  59.     player.hp = player.mhp; ! Restore Complete Points !
  60.   endfor;
  61.  
  62.   teleport( 0, 0 ); ! World 0, Door 0 !
  63.   inc(group.dead_count);
  64.   STOP;
  65.